home *** CD-ROM | disk | FTP | other *** search
/ The Arsenal Files 6 / The Arsenal Files 6 (Arsenal Computer).ISO / wildcat / ctrl105.zip / CONTROL.WCX (.txt) < prev    next >
Wildcat! WCX  |  1996-03-12  |  14KB  |  593 lines
  1. '! Decompiled with wccNosy version 4.20f (freeware)
  2. '! Input File: in.wcx  14041 bytes  01/28/123  08:37:16pm
  3. '! Code Segment Size  :6834 bytes
  4. '! Data Segment Size  :4791 bytes
  5. '! String Segment Size:7207 bytes
  6. '! Compiled with WCC version ? 019C017B
  7.  
  8.       Declare Function Func1458(l65534 As Long, l65532 As Long) As Integer
  9.       Declare Sub Sub1930
  10.       Declare Function Func2701 As Integer
  11.       Declare Function Func5278 As Integer
  12.  
  13.       Dim s4463 As String
  14.       Dim s4467 As String
  15.       Dim s4471 As String
  16.       Dim s4475(1 To 10) As String
  17.       Dim s4515 As String
  18.       Dim s4519 As String
  19.       Dim s4523 As String
  20.       Dim b4527 As Byte
  21.       Dim i4769 As Integer
  22.       Dim s4771 As String
  23.       Dim dt4775 As DateTime
  24.       Dim l4781 As Long
  25.       Dim i4785 As Integer
  26.       Dim s4787 As String
  27.  
  28.       Dim l65526_ As Long
  29.       Dim i65530_ As Integer
  30.       Dim l65532_ As Long '! Temporary
  31.  
  32.       s4463 = ProgPath + "CONTROL.CFG"
  33.       s4467 = ProgPath + "SECURITY.CFG"
  34.       s4471 = ProgPath + "DENIED.BBS"
  35.       CurrentDateTime dt4775
  36.       s4771 = FormatDate(dt4775.D, "mm/dd/yy") + " at " + FormatTime(dt4775.T, "hh:mm")
  37.       i4785 = 0
  38.       Cls 
  39.       If Exists(s4467) Then
  40.         s4787 = UCase(s4787)
  41.         Open s4467 For Input As 3
  42.         Input #3, s4787
  43.         Close 3
  44.         If Not Exists(s4463) Then
  45.           Print
  46.           Print "  @0C@Config not found - Running Configuration Utility!@0F@"
  47.           Print
  48.           Delay 1.5
  49.           Func2701
  50.           If Not Exists(s4463) Then
  51.             Beep 
  52.             Print
  53.             Print "  @0C@CONFIG@0F@ still not found!   Exiting . . ."
  54.             Print
  55.             ActivityLog "wcCONTROL ■ Did not create a configuration file, please try again!"
  56.             Delay 1.5
  57.             End 
  58.           End If
  59.         End If
  60.   282   If User.SecLevel = s4787 Then
  61.           Print
  62.           Print " @0F@┌ @3F@ wcCONTROL v1.05 @0F@ ┐"
  63.           Print " @0F@└ @0C@SysOp Access Only @0F@┘ "
  64.           Print
  65.           If InputYesNo("  @0B@Would you like to run the Configuration Utility? [@0F@y@0B@/@0F@N@0B@] ", 0) Then
  66.             Func2701
  67.           End If
  68.         End If
  69.       End If
  70.   348 Open s4463 For Input As 1
  71.       Input #1, l4781
  72.       Input #1, b4527
  73.       Input #1, s4515
  74.       Input #1, s4519
  75.       Input #1, s4523
  76.       Input #1, s4475(1)
  77.       Input #1, s4475(2)
  78.       Input #1, s4475(3)
  79.       Input #1, s4475(4)
  80.       Input #1, s4475(5)
  81.       Input #1, s4475(6)
  82.       Input #1, s4475(7)
  83.       Input #1, s4475(8)
  84.       Input #1, s4475(9)
  85.       Input #1, s4475(10)
  86.       Close 1
  87.       If Func1458(l4781, (47219)) Then
  88.         i4785 = -1
  89.       Else
  90.   786   i4785 = 0
  91.       End If
  92.   792 If i4785 = 0 Then
  93.         ActivityLog "*UNREGISTERED* wcCONTROL active!  Please register today!"
  94.         Cls 
  95.         Print
  96.         Print " @4F@ Security Check before running [@4E@ " + s4515 + " @4F@] @0F@"
  97.         Print
  98.         Print " @0B@Please support the BBSs you call! Send a few $ today!@0F@"
  99.         Print " @0F@wcCONTROL v1.05 ■ COPYRIGHT (C) 1995-96 Corinne King "
  100.         Print " @8C@* UNREGISTERED *@0C@ ■ 5 second delay ■ @0F@[@04@░░░░░░░░░░@0F@]";
  101.         Locate 6, 39
  102.         Print "@0C@██";
  103.         Delay 1
  104.         Print "██";
  105.         Delay 1
  106.         Print "██";
  107.         Delay 1
  108.         Print "██";
  109.         Delay 1
  110.         Print "██@0F@";
  111.         Delay 1
  112.         Print
  113.       End If
  114.   964
  115.   985 For i4769 = 1 To 10 Step 1
  116.         If User.SecLevel = s4475(i4769) Then
  117.           ActivityLog "wcCONTROL ■ Tried accessing " + UCase(s4515) + " on: " + s4771
  118.           Print
  119.           Beep 
  120.           If Exists(s4471) Then
  121.             Cls 
  122.             DisplayTextFile(s4471)
  123.             WaitEnter 
  124.             End 
  125.           Else
  126.  1155       Print
  127.             Print "    @0C@Sorry, you must be a " + UCase(s4523) + " to access " + UCase(s4515) + "!"
  128.             Print
  129.             WaitEnter 
  130.             End 
  131.           End If
  132.         End If
  133.  1204 Next
  134.  1227 ActivityLog "wcCONTROL ■ Accessed " + UCase(s4515) + " on: " + s4771
  135.       If b4527 = 1 Then
  136.         Shell s4519, ""
  137.       Else
  138.  1290   If b4527 = 2 Then
  139.           Chain s4519, ""
  140.         Else
  141.  1323     If b4527 = 3 Then
  142.             GoToMenu(s4519)
  143.           Else
  144.  1352       ActivityLog "wcCONTROL ERROR!!  Mistake in configuration!"
  145.             Beep 
  146.             Print
  147.             Print "@0C@Mistake in configuration!  Check path and program name!@0F@"
  148.             Delay 1.5
  149.           End If
  150.         End If
  151.       End If
  152.  1382
  153.  
  154. '! Called 2 times
  155.       Function Func1458(l65534 As Long, l65532 As Long) As Integer
  156.         Dim l65467 As Long
  157.         Dim i65471 As Integer
  158.         Dim l65473 As Long
  159.         Dim i65477 As Integer
  160.         Dim s65483 As String*7
  161.         Dim s65490 As String*30
  162.         Dim l65520 As Long
  163.         Dim l65524 As Long
  164.         Dim i65528 As Integer
  165.  
  166.         s65490 = UCase(MakeWild.BBSName)
  167.         s65490 = Trim(s65490)
  168.         l65524 = 0
  169.  1535   For i65528 = 1 To Len(s65490) Step 1
  170.           l65524 = l65524 + Asc(Mid(s65490, i65528, 1))
  171.         Next
  172.  1639   s65483 = UCase(MakeWild.RegString)
  173.         s65483 = Trim(s65483)
  174.         l65520 = 0
  175.  1708   For i65528 = 1 To Len(s65483) Step 1
  176.           l65520 = l65520 + Asc(Mid(s65483, i65528, 1))
  177.         Next
  178.  1812   l65520 = l65520 + l65524
  179.         l65520 = l65520 * 13
  180.         l65520 = l65520 * l65532
  181.         l65520 = l65520 + l65532
  182.         If l65520 = l65534 Then
  183.           Func1458 = - 1
  184.         Else
  185.  1916     Func1458 = 0
  186.         End If
  187.  1922
  188.       End Function
  189.  
  190. '! Called 1 time
  191.       Sub Sub1930
  192.         Dim s65534 As String*1
  193.         Dim s65535 As String*1
  194.  
  195.         s65535 = InputMask(" @4F@ Help with which? [@4E@1@4F@-@4E@6 S A H@4F@]: @0F@ ", "X", "", 1213417543)
  196.         s65534 = s65535
  197.         If s65534 = "1" Then
  198.           Print
  199.           Print " @0C@REGISTRATION NUMBER:"
  200.           Print
  201.           Print " @0F@Enter your registration number EXACTLY, or 0 (zero) if unregistered."
  202.           WaitEnter 
  203.         Else
  204.  2030     If s65534 = "2" Then
  205.             Print
  206.             Print " @0C@PROGRAM TYPES:"
  207.             Print
  208.             Print " @0F@Only three choices are available - 1, 2, or 3."
  209.             Print " 1 = SHELL:  Shelling to DOS (.EXE, .COM, .BAT)"
  210.             Print " 2 = CHAIN:  Chaining a .WCX"
  211.             Print " 3 =  MENU:  Displaying a Menu"
  212.             Print
  213.             Print " Remember, this program is restricting access to a current menu option (or"
  214.             Print " menu) - you will need to run MAKEMENU and replace your current menu option "
  215.             Print " with wcCONTROL, do not add another menu option.  You don't even have to redo"
  216.             Print " your display screens!"
  217.             Print
  218.             Print " For example:  If you would like to restrict access to a door (perhaps LORD) "
  219.             Print " and MAKEWILD has been set to run LORD from a BATCH file, then you would "
  220.             Print " select 1 (one) and enter the full path and name for Option 4:  (be sure you "
  221.             Print " know all your paths, etc)  C:\WILDCAT\BATCH\LORD.BAT)."
  222.             WaitEnter 
  223.           Else
  224.  2183       If s65534 = "3" Then
  225.               Print
  226.               Print " @0C@REFERENCE NAME:"
  227.               Print
  228.               Print " @0F@Just a short name to remember what this is configured for (ie, ROM DOOR)."
  229.               Print " This is used in the default display screen, the Activity Log notations, and"
  230.               Print " if unregistered, lets the user know what it is about to run...while waiting"
  231.               Print " for the delay to finish."
  232.               WaitEnter 
  233.             Else
  234.  2260         If s65534 = "4" Then
  235.                 Print
  236.                 Print " @0C@PROGRAM's FULL PATH & NAME:"
  237.                 Print
  238.                 Print " @0F@Must be valid in order to work.  Be sure to include the drive letter, "
  239.                 Print " directory(ies), and filename to run.  If you are restricting a MENU,"
  240.                 Print " you must enter the name of the menu as it appears in the MAKEMENU"
  241.                 Print " menu description."
  242.                 Print " Example: C:\WILDCAT\BATCH\ROMDOOR.BAT, or DOORS MENU"
  243.                 WaitEnter 
  244.               Else
  245.  2346           If s65534 = "5" Then
  246.                   Print
  247.                   Print " @0C@Your Word/Phrase"
  248.                   Print
  249.                   Print " @0F@Just a word or short phrase to let the user know why he/she does not have"
  250.                   Print " access to this option - for the default message only.  If you are using"
  251.                   Print " the DENIED.BBS display screen, this will not be used."
  252.                   Print " Example:  DONATING USER, REGISTERED MEMBER  "
  253.                   WaitEnter 
  254.                 Else
  255.  2423             If s65534 = "6" Then
  256.                     Print
  257.                     Print " @0C@Security Levels Denied Access"
  258.                     Print
  259.                     Print " @0F@You may enter up to TEN (10) valid security levels (as defined in "
  260.                     Print " MAKEWILD) that you would like to DENY access for the menu/menu option."
  261.                     WaitEnter 
  262.                   Else
  263.  2482               If s65534 = "S" Then GoTo 2520
  264.                     If s65534 = "s" Then
  265.  2520                 Print
  266.                       Print " @0C@Save & Exit"
  267.                       Print
  268.                       Print " @0F@Save all your changes, and Exit Configuration Utility."
  269.                       WaitEnter 
  270.                     Else
  271.  2551                 If s65534 = "A" Then GoTo 2589
  272.                       If s65534 = "a" Then
  273.  2589                   Print
  274.                         Print " @0C@Abort & Exit"
  275.                         Print
  276.                         Print " @0F@Abandon all changes (if any) and Exit Utility."
  277.                         WaitEnter 
  278.                       Else
  279.  2620                   If s65534 = "H" Then GoTo 2658
  280.                         If s65534 = "h" Then
  281.  2658                     Print
  282.                           Print " @0C@HELP!"
  283.                           Print
  284.                           Print " @0F@Select the letter or number (from above) that you need more information"
  285.                           Print " about."
  286.                           WaitEnter 
  287.                           GoTo 2698
  288.                         End If
  289.                       End If
  290.                     End If
  291.                   End If
  292.                 End If
  293.               End If
  294.             End If
  295.           End If
  296.         End If
  297.  2698
  298.       End Sub
  299.  
  300. '! Called 2 times
  301.       Function Func2701 As Integer
  302.         Dim l65528 As Long '! Temporary
  303.         Dim s65532 As String*1
  304.         Dim s65533 As String*1
  305.  
  306.         If Exists(s4463) Then
  307.           Open s4463 For Input As 8
  308.           Input #8, l4781
  309.           Input #8, b4527
  310.           Input #8, s4515
  311.           Input #8, s4519
  312.           Input #8, s4523
  313.           Input #8, s4475(1)
  314.           Input #8, s4475(2)
  315.           Input #8, s4475(3)
  316.           Input #8, s4475(4)
  317.           Input #8, s4475(5)
  318.           Input #8, s4475(6)
  319.           Input #8, s4475(7)
  320.           Input #8, s4475(8)
  321.           Input #8, s4475(9)
  322.           Input #8, s4475(10)
  323.           Close 8
  324.         End If
  325.  3114
  326.         If Func1458(l4781, (47219)) Then
  327.           i4785 = -1
  328.         Else
  329.  3161     i4785 = 0
  330.         End If
  331.         Do
  332.           Do
  333.             Do
  334.               Do
  335.                 Do
  336.                   Do
  337.                     Do
  338.                       Do
  339.                         Do
  340.                           Do
  341.                             Do
  342.                               Do
  343.                                 Do
  344.                                   Do
  345.  3167                               Cls 
  346.                                     Print
  347.                                     Print "@0B@  wcCONTROL CONFIGURATION UTILITY v1.02"
  348.                                     Print
  349.                                     Print "@0B@  @08@COPYRIGHT (C) 1995-96 CORINNE KING"
  350.                                     Print "@08@ @0F@┌───────────────────────────────────────────────────────────────────────────┐"
  351.                                     Print "@0F@ │    @0B@OPTIONS:                          CURRENT SETTINGS:                    @0F@│"
  352.                                     Print "@0F@ └───────────────────────────────────────────────────────────────────────────┘"
  353.                                     Print "@0F@   @0C@1@0B@] Registration Number          @0F@│ @0C@1@0B@] @0E@"; l4781
  354.                                     Print "@0B@   @0C@2@0B@] Program TYPE (1,2,3)         @0F@│ @0C@2@0B@] @0E@"; b4527
  355.                                     Print "@0B@   @0C@3@0B@] Reference Name               @0F@│ @0C@3@0B@] @0E@"; s4515
  356.                                     Print "@0B@   @0C@4@0B@] Program's FULL path & name   @0F@│ @0C@4@0B@] @0E@"; UCase(s4519)
  357.                                     Print "@0B@   @0C@5@0B@] Your word/phrase             @0F@│ @0C@5@0B@] @0E@"; s4523
  358.                                     Print "@0B@  @0F@───────────────────────────────────────────────────────────────────────────"
  359.                                     Print "@0F@   @0C@6@0B@] Security Levels DENIED Access:"
  360.                                     Print "@0B@   -> @0E@"; UCase(s4475(1)); Spc(3); UCase(s4475(2)); Spc(3); UCase(s4475(3)); Spc(3); UCase(s4475(4)); Spc(3); UCase(s4475(5))
  361.                                     Print "@0B@   -> @0E@"; UCase(s4475(6)); Spc(3); UCase(s4475(7)); Spc(3); UCase(s4475(8)); Spc(3); UCase(s4475(8)); Spc(3); UCase(s4475(10))
  362.                                     Print "@0B@  @0F@═══════════════════════════════════════════════════════════════════════════"
  363.                                     Print "@0F@  @0B@[@0E@H @0B@= @0F@HELP@0B@, @0E@S @0B@= @0F@SAVE & EXIT@0B@, @0E@A@0B@ = @0F@ABORT & EXIT@0B@] : @3F@Your Choice:@0E@ ";
  364.                                     Input s65533
  365.                                     s65532 = s65533
  366.                                     If (s65532 = "1") = 0 Then GoTo 3857
  367.                                     Print
  368.                                     l4781 = InputNumber("  @0B@Enter Registration Number, or 0 (zero) for unregistered: @0F@", - 2147483647, 2147483647)
  369.                                     If (l4781 = 0) = 0 Then GoTo 3845
  370.                                   Loop
  371.  3845                           Loop
  372.                                 GoTo 5270
  373.  3857                           If (s65532 = "2") = 0 Then GoTo 3926
  374.                                 Print
  375.                                 b4527 = InputNumber("  @0B@Enter Program Type: [@0F@1@0B@ = @0F@SHELL@0B@,@0F@ 2 @0B@=@0F@ CHAIN@0B@, @0F@3@0B@ = @0F@MENU@0B@] @0F@0@0B@ to Quit: @0F@", 0, 3)
  376.                                 If (b4527 = 0) = 0 Then GoTo 3914
  377.                               Loop
  378.  3914                       Loop
  379.                             GoTo 5270
  380.  3926                       If (s65532 = "3") = 0 Then GoTo 4014
  381.                             Print
  382.                             s4515 = InputMask("  @0B@Enter a reference name for your menu/menu option: @0F@", String(20, "X"), "", 1213417543)
  383.                             If (s4515 = "") = 0 Then GoTo 4002
  384.                           Loop
  385.  4002                   Loop
  386.                         GoTo 5270
  387.  4014                   If (s65532 = "4") = 0 Then GoTo 4192
  388.                         Print
  389.                         Print "  @0F@Please enter the FULL path and name of the program to run, or the"
  390.                         Print "  name of the MENU as entered in the MAKEMENU description:@0F@"
  391.                         Print "  (ie, C:\WILDCAT\BATCH\ROM.BAT, DOORS MENU, C:\WILDCAT\BATCH\DOOR.BAT)"
  392.                         Print
  393.                         Print "  @0B@Control Program/Menu: @0F@"
  394.                         Print "  @0B@-> @0F@";
  395.                         Input s4519
  396.                         If (s4519 = "") = 0 Then GoTo 4111
  397.                       Loop
  398.  4111                 If (Not Exists(s4519)) = 0 Then GoTo 4180
  399.                       Beep 
  400.                       Print
  401.                       Print "  @0C@ERROR!@0F@  You have specified an invalid path and/or filename."
  402.                       Print "  @0B@" + s4519 + "@0F@ is invalid."
  403.                       WaitEnter 
  404.                       s4519 = ""
  405.                     Loop
  406.  4180             Loop
  407.                   GoTo 5270
  408.  4192             If (s65532 = "5") = 0 Then GoTo 4280
  409.                   Print
  410.                   s4523 = InputMask("  @0B@Enter word/phrase for no access: @0F@", String(30, "X"), "", 1213417543)
  411.                   If (s4523 = "") = 0 Then GoTo 4268
  412.                 Loop
  413.  4268         Loop
  414.               GoTo 5270
  415.  4280         If (s65532 = "6") = 0 Then GoTo 4318
  416.               Func5278
  417.             Loop
  418.             GoTo 5270
  419.  4318       If s65532 = "H" Then GoTo 4356
  420.             If (s65532 = "h") = 0 Then GoTo 4374
  421.  4356       Sub1930
  422.           Loop
  423.           GoTo 5270
  424.  4374     If s65532 = "S" Then GoTo 4412
  425.           If s65532 = "s" Then
  426.  4412       Open s4463 For Output As 9
  427.             Print #9, l4781
  428.             Print #9, b4527
  429.             Print #9, UCase(s4515)
  430.             Print #9, UCase(s4519)
  431.             Print #9, s4523
  432.             Print #9, UCase(s4475(1))
  433.             Print #9, UCase(s4475(2))
  434.             Print #9, UCase(s4475(3))
  435.             Print #9, UCase(s4475(4))
  436.             Print #9, UCase(s4475(5))
  437.             Print #9, UCase(s4475(6))
  438.             Print #9, UCase(s4475(7))
  439.             Print #9, UCase(s4475(8))
  440.             Print #9, UCase(s4475(9))
  441.             Print #9, UCase(s4475(10))
  442.             Close 9
  443.             Print
  444.             Print "  @0F@Configuration saved as: @0B@"; UCase(s4463); "@0F@"
  445.             Delay 1.5
  446.             If i4785 = 0 Then
  447.               ActivityLog "*UNREGISTERED* wcCONTROL Configuration active!  Please register today!"
  448.               Print
  449.               Print "  @8C@* UNREGISTERED *@0C@ ■ 5 second delay ■ @0F@[@04@░░░░░░░░░░@0F@]";
  450.               Locate 22, 40
  451.               Print "@0C@██";
  452.               Delay 1
  453.               Print "██";
  454.               Delay 1
  455.               Print "██";
  456.               Delay 1
  457.               Print "██";
  458.               Delay 1
  459.               Print "██@0F@";
  460.               Delay 1
  461.               Print
  462.             End If
  463.  5031       Print
  464.             Print "  wcCONTROL Configuration Utility Closing - Thank you for using it!"
  465.             Print "  COPYRIGHT (C) 1995-96 CORINNE KING"
  466.             Delay 1.5
  467.             GoTo 5270
  468.           End If
  469.  5065     If s65532 = "A" Then GoTo 5103
  470.           If s65532 = "a" Then
  471.  5103       If i4785 = 0 Then
  472.               ActivityLog "*UNREGISTERED* wcCONTROL Configuration active!  Please register today!"
  473.               Print
  474.               Print "  @8C@* UNREGISTERED *@0C@ ■ 5 second delay ■ @0F@[@04@░░░░░░░░░░@0F@]";
  475.               Locate 20, 40
  476.               Print "@0C@██";
  477.               Delay 1
  478.               Print "██";
  479.               Delay 1
  480.               Print "██";
  481.               Delay 1
  482.               Print "██";
  483.               Delay 1
  484.               Print "██@0F@";
  485.               Delay 1
  486.               Print
  487.             End If
  488.  5230       Print
  489.             Print "  wcCONTROL Configuration Utility Closing - Thank you for using it!"
  490.             Print "  COPYRIGHT (C) 1995-96 CORINNE KING"
  491.             Delay 1.5
  492.             GoTo 5270
  493.           End If
  494.  5264   Loop
  495.  5270
  496.       End Function
  497.  
  498. '! Called 1 time
  499.       Function Func5278 As Integer
  500.         Dim s65530 As String*2
  501.         Dim s65532 As String*2
  502.  
  503.         Do
  504.           Do
  505.             Do
  506.               Do
  507.                 Do
  508.                   Do
  509.                     Do
  510.                       Do
  511.                         Do
  512.                           Do
  513.                             Do
  514.  5287                         Cls 
  515.                               Print
  516.                               Print "@0B@  wcCONTROL CONFIGURATION UTILITY v1.02 - SECURITY LEVELS"
  517.                               Print "@0B@  @08@COPYRIGHT (C) 1995-96 CORINNE KING"
  518.                               Print
  519.                               Print "@08@ @0F@┌───────────────────────────────────────────────────────────────────────────┐"
  520.                               Print "@0F@ │ @0B@DENY ACCESS TO THESE SECURITY LEVELS:                                     @0F@│"
  521.                               Print "@0F@ └───────────────────────────────────────────────────────────────────────────┘"
  522.                               Print "@0F@   @0C@1@0B@] @0E@"; Pad(UCase(s4475(1)), 21); "            @0F@│ @0C@6@0B@] @0E@"; UCase(s4475(6))
  523.                               Print "@0B@   @0C@2@0B@] @0E@"; Pad(UCase(s4475(2)), 21); "            @0F@│ @0C@7@0B@] @0E@"; UCase(s4475(7))
  524.                               Print "@0B@   @0C@3@0B@] @0E@"; Pad(UCase(s4475(3)), 21); "            @0F@│ @0C@8@0B@] @0E@"; UCase(s4475(8))
  525.                               Print "@0B@   @0C@4@0B@] @0E@"; Pad(UCase(s4475(4)), 21); "            @0F@│ @0C@9@0B@] @0E@"; UCase(s4475(9))
  526.                               Print "@0B@   @0C@5@0B@] @0E@"; Pad(UCase(s4475(5)), 21); "            @0F@│@0C@10@0B@] @0E@"; UCase(s4475(10))
  527.                               Print "@0B@  @0F@═══════════════════════════════════════════════════════════════════════════"
  528.                               Print "@0F@  @0B@[@0F@H @0B@= @0F@HELP@0B@, @0F@ENTER @0B@= @0F@PREV@0B@] : @3F@Your Choice:@07@ ";
  529.                               Input s65532
  530.                               s65530 = s65532
  531.                               If (s65530 = "1") = 0 Then GoTo 5923
  532.                               Print
  533.                               s4475(1) = InputMask("  @0B@Enter Security Level to DENY access: @0F@", String(10, "X"), "", 1213417543)
  534.                             Loop
  535.                             GoTo 6826
  536.  5923                       If (s65530 = "2") = 0 Then GoTo 6014
  537.                             Print
  538.                             s4475(2) = InputMask("  @0B@Enter Security Level to DENY access: @0F@", String(10, "X"), "", 1213417543)
  539.                           Loop
  540.                           GoTo 6826
  541.  6014                     If (s65530 = "3") = 0 Then GoTo 6105
  542.                           Print
  543.                           s4475(3) = InputMask("  @0B@Enter Security Level to DENY access: @0F@", String(10, "X"), "", 1213417543)
  544.                         Loop
  545.                         GoTo 6826
  546.  6105                   If (s65530 = "4") = 0 Then GoTo 6196
  547.                         Print
  548.                         s4475(4) = InputMask("  @0B@Enter Security Level to DENY access: @0F@", String(10, "X"), "", 1213417543)
  549.                       Loop
  550.                       GoTo 6826
  551.  6196                 If (s65530 = "5") = 0 Then GoTo 6287
  552.                       Print
  553.                       s4475(5) = InputMask("  @0B@Enter Security Level to DENY access: @0F@", String(10, "X"), "", 1213417543)
  554.                     Loop
  555.                     GoTo 6826
  556.  6287               If (s65530 = "6") = 0 Then GoTo 6378
  557.                     Print
  558.                     s4475(6) = InputMask("  @0B@Enter Security Level to DENY access: @0F@", String(10, "X"), "", 1213417543)
  559.                   Loop
  560.                   GoTo 6826
  561.  6378             If (s65530 = "7") = 0 Then GoTo 6469
  562.                   Print
  563.                   s4475(7) = InputMask("  @0B@Enter Security Level to DENY access: @0F@", String(10, "X"), "", 1213417543)
  564.                 Loop
  565.                 GoTo 6826
  566.  6469           If (s65530 = "8") = 0 Then GoTo 6560
  567.                 Print
  568.                 s4475(8) = InputMask("  @0B@Enter Security Level to DENY access: @0F@", String(10, "X"), "", 1213417543)
  569.               Loop
  570.               GoTo 6826
  571.  6560         If (s65530 = "9") = 0 Then GoTo 6651
  572.               Print
  573.               s4475(9) = InputMask("  @0B@Enter Security Level to DENY access: @0F@", String(10, "X"), "", 1213417543)
  574.             Loop
  575.             GoTo 6826
  576.  6651       If (s65530 = "10") = 0 Then GoTo 6742
  577.             Print
  578.             s4475(10) = InputMask("  @0B@Enter Security Level to DENY access: @0F@", String(10, "X"), "", 1213417543)
  579.           Loop
  580.           GoTo 6826
  581.  6742     If s65530 = "H" Then GoTo 6780
  582.           If (s65530 = "h") = 0 Then GoTo 6826
  583.  6780     Print
  584.           Print "  @0C@Security Levels -"
  585.           Print
  586.           Print "  @0F@Enter up to ten valid security levels (as defined in MAKEWILD) to deny"
  587.           Print "  access to the menu/menu option you are configuring."
  588.           WaitEnter 
  589.         Loop
  590.         GoTo 6826
  591.  6826
  592.       End Function
  593.